home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / PCKEY.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  2.6 KB  |  150 lines
  1. :pckey.scr
  2.  
  3. load -
  4.  
  5. if memory 1 = 0 goto welcome
  6.  
  7. cursor 12 7
  8. print 'Press C if you wish to continue with your last lesson.
  9. cursor 10 9
  10. print 'Otherwise press the SPACE BAR to go to the TUTORIAL MENU.
  11.  
  12. :wait_for_c
  13. wait -
  14. if key = 32 goto menu
  15. if key ! C if key ! c goto wait_for_c
  16. if memory 1 > 6 goto ex_menu_cont
  17.  
  18. clear
  19. keyboard
  20.  
  21. if memory 1 = 1 goto intro
  22. if memory 1 = 2 goto hkl
  23. if memory 1 = 3 goto ral
  24. if memory 1 = 4 goto rbl
  25. if memory 1 = 5 goto akl
  26. if memory 1 = 6 goto skl
  27.  
  28. :welcome
  29. script - welcome
  30.  
  31. :restart
  32. start 1
  33. memory 1 = 0
  34.  
  35. :menu
  36.  
  37. speed 0
  38.  
  39. clear
  40. cursor 26 4
  41. print 'This is the TUTORIAL MENU.
  42. cursor 4 7
  43. print 'You will return here if you press ESC whilst doing any of the lessons.
  44.  
  45. cursor 14 10
  46. print 'Press : 1 to start with the introduction.
  47. cursor 4 12
  48. print 'Otherwise press : 2 for the 'Home keys' lesson.
  49. cursor 22 13
  50. print '3 for the 'Row above' lesson.
  51. cursor 22 14
  52. print '4 for the 'Row below' lesson.
  53. cursor 22 15
  54. print '5 for the 'ENTER the carriage return' lesson.
  55. cursor 22 16
  56. print '6 for the 'Symbol row' lesson.
  57. cursor 22 17
  58. print '7 for the exercises menu.
  59.  
  60. cursor 22 19
  61. print '9 to exit now and save your progress.
  62.  
  63. cursor 22 20
  64. print '0 to reset your score.
  65.  
  66. cursor 6 24
  67. print 'Remember, pressing ESC from here will return you to the MAIN MENU.
  68.  
  69. :wait_key
  70. wait
  71. if key = 27 goto check_exit
  72. if key = 57 goto save_exit
  73. if key = 48 goto restart
  74. if key >= 49 if key <= 55 goto check_key
  75. goto wait_key
  76.  
  77. :check_key
  78. if key = 55 goto ex_menu
  79. clear
  80. keyboard
  81.  
  82. if key = 49 goto intro
  83. if key = 50 goto hkl
  84. if key = 51 goto ral
  85. if key = 52 goto rbl
  86. if key = 53 goto akl
  87. if key = 54 goto skl
  88.  
  89. :intro
  90. script intro
  91. if key = 27 goto menu
  92.  
  93. :hkl
  94. script homekeys
  95. if key = 27 goto menu
  96. if key = s goto save_exit
  97. if key = S goto save_exit
  98.  
  99. :ral
  100. script keysup
  101. if key = 27 goto menu
  102. if key = s goto save_exit
  103. if key = S goto save_exit
  104.  
  105. :rbl
  106. script keysdown
  107. if key = 27 goto menu
  108. if key = s goto save_exit
  109. if key = S goto save_exit
  110.  
  111. :akl
  112. script allkeys
  113. if key = 27 goto menu
  114. if key = s goto save_exit
  115. if key = S goto save_exit
  116.  
  117. :skl
  118. script symkeys
  119. if key = 27 goto menu
  120. if key = s goto save_exit
  121. if key = S goto save_exit
  122.  
  123. goto menu
  124.  
  125. :ex_menu
  126. memory 1 = 7
  127. memory 2 = 0
  128.  
  129. :ex_menu_cont
  130. script ex_menu
  131. if key = s goto save_exit
  132. if key = S goto save_exit
  133. goto menu
  134.  
  135. :check_exit
  136.  
  137. clear
  138. cursor 18 10
  139. print 'Press S if you want to save your progress.
  140. cursor 10 13
  141. print 'Otherwise press any other key to return to the MAIN MENU.
  142. wait
  143. if key ! S if key ! s goto exit
  144.  
  145. :save_exit
  146.  
  147. save
  148.  
  149. :exit
  150.